home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Glitch Apple Disk Collection
/
2014.glitch.apple.collection.zip
/
indexed
/
CRKUTIL2.DSK
/
CRACK 'EM.DOC READ.bas
< prev
next >
Wrap
BASIC Source File
|
2014-09-09
|
418b
|
14 lines
3 HOME
4 POKE 768,44: POKE 769,48: POKE 770,192: POKE 771,96
5 PRINT : PRINT : PRINT : PRINT
10 PRINT "<CTRL-D>MON I"
20 PRINT "<CTRL-D>OPEN CRACK 'EM.DOCUMENTATION"
30 PRINT "<CTRL-D>READ CRACK 'EM.DOCUMENTATION"
35 ONERR GOTO 70
40 GET A$
50 PRINT A$;
55 INVERSE : PRINT " ";: CALL -1008: NORMAL : PRINT " ";: CALL -1008
56 CALL 768
60 GOTO 40
70 PRINT "<CTRL-D>CLOSE"
90 SPEED= 255: NORMAL : END